home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / Comedy / Frustration / card_3961.txt < prev    next >
Encoding:
Text File  |  1992-08-11  |  1.1 KB  |  46 lines
  1. -- card: 3961 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 3222
  5. -- name: Panic Button
  6. ----- HyperTalk script -----
  7. on OpenCard
  8.   global attempt_Count,Frustrated
  9.   put 0 into Frustrated
  10.   put 1 into attempt_Count
  11. end OpenCard
  12.  
  13.  
  14. -- part 4 (button)
  15. -- low flags: 00
  16. -- high flags: A003
  17. -- rect: left=86 top=315 right=337 bottom=186
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Panic Button
  26. ----- HyperTalk script -----
  27. on MouseEnter
  28.   global panicbuttonh,panicbuttonw,attempt_Count
  29.   put 25 into MaxCount
  30.   if attempt_Count < MaxCount then
  31.     put Round(Random(512-panicbuttonw)+panicbuttonw/2) into horiz
  32.     put Round(Random(343-panicbuttonh)+panicbuttonh/2) into vert
  33.     play "Boing"
  34.     set Loc of button "Panic Button" of card 2 to horiz,vert
  35.     put attempt_Count+1 into attempt_Count
  36.   else
  37.     visual effect wipe right slowly
  38.     go card "Persistent"
  39.   end if
  40. end MouseEnter
  41.  
  42. on MouseUp
  43.   visual effect wipe right
  44.   go next
  45. end MouseUp
  46.